home *** CD-ROM | disk | FTP | other *** search
/ Disney Interactive Software Sampler 1997 to 1998 / Disney Interactive 1997-98 Software Sampler.iso / pc / media / mgicflor.dxr / 00202_HelpDown.ls < prev    next >
Encoding:
Text File  |  1997-10-17  |  484 b   |  21 lines
  1. global pUp, pDown, pSomm, pHelp, pQuit, QuelMarker, QuelMovie
  2.  
  3. on mouseUp
  4.   puppetSound("Beep-" & random(26))
  5.   repeat with i = pUp to pQuit
  6.     set the visible of sprite (i + 6) to 0
  7.   end repeat
  8.   updateStage()
  9.   repeat while soundBusy(1)
  10.     nothing()
  11.   end repeat
  12.   set QuelMarker to marker(0)
  13.   set QuelMovie to the movie
  14.   puppetTransition(member "TransPattern" of castLib "Master")
  15.   repeat with i = 1 to 4
  16.     puppetSound(i, 0)
  17.   end repeat
  18.   go(3000)
  19.   go(1, "Help.dir")
  20. end
  21.